home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
dist.src
< prev
next >
Wrap
Text File
|
1991-02-21
|
296b
|
10 lines
%%HP: T(3)A(D)F(.);
@ DIST, Great Circle Distance
@ by Eric Bergman-Terrell
\<< 0 0 \-> LATA LONA LATB LONB A B
\<< -15 SF -16 SF 1 LONA HMS\-> 90 LATA HMS\-> - \->V3 'A' STO
1 LONB HMS\-> 90 LATB HMS\-> - \->V3 'B' STO
A B DOT ACOS 60 * 6080 * 5280 / -15 CF -16 CF
\>>
\>>